این جوری اولین سلول خالی را در اکسل پیدا کن .
سلام به یکی دیگر از آموزش های سافت پلاس در زمینه آموزش اکسل خوش آمدید . امروز می خواهیم درخصوص یافتن اولین سلول خالی در اکسل با هم صحبت کنیم .
اکثر موارد شما در اکسل یک لیست از اطلاعاتی دارید که آنها را در یک یا چند ستون در یکی از شیتها قرار داده اید .
اگر این اطلاعات شما به طور مداوم دچار تغییرات شود چه مشکلی ممکن است پیش بیایید ؟
خب تغییرات یعنی حذف و اضافه کردن اطلاعات . این یعنی اینکه بعضی از ردیف ها و سلول های شما خالی از اطلاعات می شوند .
چرا که شما ناچار خواهید بود که این اطلاعات را از جدول مربوطه حذف و یا اضافه نمایید.
اگر می خواهید اضافه نمودن اطلاعات به گونه ای باشد که توالی اطلاعات وارد شده در جدول شما از بین نرود ناچار خواهید بود که برخی از ردیف های جدول خود را خالی بگذارید.
حال تصور کنید که چندین ردیف در جدول خود را از اطلاعات مربوطه خالی نموده اید و اکنون می خواهید که اطلاعات جدیدی را در لابلای این اطلاعات قبلی وارد نمایید.
برای این منظور نیاز دارید که اولین سلول و سطر خالی از اطلاعات را پیدا نموده و اطلاعات خود را در آن درج نمایید.
یافتن ردیف های خالی جدول حاوی اطلاعات محدود کار چندان مشکلی نخواهد بود اما تصور کنید که جدول های اطلاعاتی در ۱۰۰۰ ردیف دارید.
مطمئنا کار پیدا کردن اولین ردیف خالی در بین این تعداد از ردیف ها به سادگی پیدا کردن ردیف خالی در حالت قبل نخواهد بود.
امروز می خواهم راجع به همین قضیه با هم صحبت کنیم .
یعنی اینکه چگونه می توانید اولین سلول از یک ردیف خالی را پیدا کرده و در قدم بعدی آن را به حالت انتخاب درآورید.
با این کار شما به راحتی بتوانید نسبت به یافتن اولین سلول خالی در اکسل خود اقدام نموده و اطلاعات خود را در آن درج کنید.
مراحل یافتن اولین سلول خالی در اکسل
قبل از هر چیز باید یک سری از اطلاعات داشته باشیم تا کار خود را بر روی آنها شروع کنیم .
برای این منظور جدول اطلاعات زیر را در نظر بگیرید.
اگر به این اطلاعات دقت کنید می بینید که در ردیف شماره ۴ یک سلول خالی وجود دارد . حالا می خواهیم کاری کنیم که برنامه این سلول خالی را به عنوان اول سلول برای ما مشخص کند .
برای اضافه کردن این قابلیت باید از کدهای VBA استفاده کنید
برای پیدا نمودن اولین سلول خالی ماکرویی را تعریف نموده و این ماکرو را به یک دکمه مرتبط می کنیم .
پس در قدم اول باید یک دکمه را در داخل شیت کاری خودمان قرار دهیم .
برای ایجاد دکمه می توانید مسیر زیر را دنبال نمایید .
Developer >>>Insert >>>> ActiveX control >>> combo box
کمی کد نویسی کنید
بعد از قرار گرفتن این دکمه بر روی صفحه کاری بر روی آن دابل کلیک نمایید تا وارد محیط کد نویسی آن شوید. می خواهیم در داخل رویداد مربوط به کلیک این دکمه کمی کد نویسی کنیم . .
در روال ایجاد شده مربوط به رویداد Click این دکمه کدهای زیر را وارد نمایید .
()Private Sub CommandButton1_Click
Dim rng As Range
Dim mycell As Range
("Set rng = Range("a2:a10
For Each mycell In rng
If mycell.Value = "" Then
mycell.Interior.Color = vbYellow
End If
End Sub
دیدگاهتان را بنویسید